# Read in the data
fish <- read_csv(here("data", "willamette_fish_passage.csv"))
# Wrangle the data
fish_ts <- fish %>%
clean_names() %>%
mutate(date = lubridate::mdy(date)) %>% # Convert to date
select(date, coho, jack_coho, steelhead) %>% # Select only for date and fish of interest
replace_na(list(coho = 0, jack_coho = 0, steelhead = 0)) %>%
pivot_longer(c(coho:steelhead),
names_to = "species",
values_to = "count") %>% # Replace NA values with 0
as_tsibble(key = species, index = date) # Convert to tsibble
Salmon swim past Oregon Department of Fish and Wildlife’s (ODFW) counting window at the Willamette Falls fishway. Photograph Credit: Eric Ollerenshaw, ODFW
This report details adult fish passage for Coho, Jack Coho, and Steelhead salmon at the Willamette Falls fish ladder on the Willamette River in Oregon from 2001-01-01 to 2010-12-31. Note that the Willamette Falls fish ladder was not operational on the following dates:
Included is a time series of adult salmon passage, seasonplots of passage, and annual totals of passage for each species.
The data used in this report can be accessed from Columbia River DART (Data Access in Real Time). Columbia River DART is a data resource compiling information relating to the Columbia Basin salmon populations and environmental river conditions from federal, state, and tribal databases.
fish_month <- fish_ts %>%
group_by_key() %>%
index_by(yr_mo = ~yearmonth(.)) %>% # index by month to make seasonality clearer
summarise(monthly_mean_count = mean(count, na.rm = TRUE)) %>%
mutate(species = recode(species,
coho = "Coho",
jack_coho = "Jack Coho",
steelhead = "Steelhead"))
fish_month %>%
gg_season(y = monthly_mean_count)+
labs(x = "Month",
y = "Mean monthly count",
title = "Average monthly count of adult fish passage for Willamette fish ladder"
)+
theme_minimal()